home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -coverdisks- / af108a / globaltrash / installglobaltrash < prev   
Text File  |  1998-01-17  |  24KB  |  551 lines
  1. ;-----------------------------------------------------------------------------
  2. ; Script to install GlobalTrash
  3. ;
  4. ; $VER: InstallGlobalTrash 1.0 (12.12.97) © Oliver Blumert 1997
  5. ;
  6. ;-----------------------------------------------------------------------------
  7.  
  8. ;=============================================================================
  9. ; Configuration defaults
  10. ;=============================================================================
  11.  
  12. (set #MinSysVersion             39)
  13. (set #CPUVersion                -1)
  14. (set #MainprogPath              "SYS:WBStartup")
  15. (set #MainprogName              "GlobalTrash")
  16. (set #ClientPath                "C:")
  17. (set #ClientName                "GlobalTrashClient")
  18. (set #PrefsPath                 "SYS:Prefs")
  19. (set #PrefsName                 "GlobalTrashPrefs")
  20. (set #DocuName                  "GlobalTrash.guide")
  21. (set #RegisterName              "Register.txt")
  22. (set #MainDefaultPath           "SYS:")
  23. (set #LocaleSrc                 "catalogs")
  24. (set #LocaleDest                "LOCALE:catalogs")
  25.  
  26. (set #CatalogVersion            0)
  27. (set #PerformIconCopy           1)
  28.  
  29. ; Installmodes
  30. (set #New                       0)
  31. (set #Update                    1)
  32. (set #Remove                    2)
  33. (set #InstallMode               #New)
  34.  
  35. ;=============================================================================
  36. ; English strings
  37. ;=============================================================================
  38.  
  39. (if (= @language "english")
  40.     (
  41.  
  42.     ; Documentation
  43.         (set #DocuPath            "Help/english")
  44.  
  45.     ; Errors
  46.         (set #Err-Bad-Kick        "You need at least Kickstart 3.0 to run GlobalTrash !")
  47.         (set #Err-Bad-CPU         "You need a Motorola MC68k CPU (68000/010/020/030/040/060) to run GlobalTrash !")
  48.  
  49.     ; Message
  50.         (set #Message             "\n\nThank you very much for choosing\n\n>> GlobalTrash <<\n\nas your trashcan system.\n\n\nInstallscript © 1997 by Oliver Blumert\n\n")
  51.  
  52.     ; Main
  53.         (set #InstallModeStrg     "Do you want GlobalTrash to be:")
  54.         (set #InstallMode1        "installed (new) ?")
  55.         (set #InstallMode2        "updated (from an older version) ?")
  56.         (set #InstallMode3        "removed ?")
  57.         (set #InstallModeHelp     "'updated' installs the new versionen (programm, catalog and documentation) and leaves the icons and preferences untouched.\n'installed' installs the complete package including the icons and defaulticons.\n'removed' deletes GlobalTrash from your volume.")
  58.  
  59.         (set #CPUVersionSel       "Install version for the CPU:")
  60.         (set #CPUVersionSelHelp   "Choose a version for your CPU:")
  61.  
  62.         (set #SelectMainDir       "Where do you want to have the program installed ?")
  63.         (set #SelectMainDirHelp   "Select the path for the programm.\n\n\n\nA drawer will NOT be created there !\n\nIf you choose 'SYS:WBStartup' then it will\nbe automatically started after booting")
  64.         (set #CopyMainProg        "Copy mainfile.")
  65.  
  66.         (set #SelectClientDir     "Where do you want to have the GlobalTrashClient installed ?")
  67.         (set #SelectClientDirHelp "Select the path for GlobalTrashClient (a shell-/wb-interface fpr GlobalTrash).\n\n\n\nA drawer will NOT be created there !")
  68.         (set #CopyClientProg      "Copy GlobalTrashClient.")
  69.  
  70.         (set #SelectPrefsDir      "Where do you want to have the preferencesprogram installed ?")
  71.         (set #SelectPrefsDirHelp  "Select the path for the preferencesprogramm.\n\n\n\nA drawer will NOT be created there !")
  72.         (set #CopyPrefsProg       "Copy preferencesprogramm.")
  73.  
  74.         (set #AskIconCopy         "Should the neccesary default-iconfiles for the wb-appicon ('def_Trashcan' and 'def_TrashcanFull') be copied ?")
  75.         (set #AskIconCopyHelp     "This files are needed by GlobalTrash to create the appicon on the workbench. If they wouldn't be copied then the user is unable to delete any files over this appicon until the preferences are corrected.")
  76.         (set #CopyIcons           "Copy needed iconfiles.")
  77.  
  78.         (set #CatalogVersion      1)
  79.         (set #CatalogSel          "Which language should be installed ?\nGerman is 'build-in' - no need to install it.")
  80.         (set #CatalogSelHelp      "Choose one or more languages which can be used by the programm.\nA catalog for german ('deutsch') don't have to be installed (build-in language) !\n\nThe catalogfiles will be installed in 'LOCALE:catalogs/'.")
  81.         (set #CopyLocale          "Copy catalogfile")
  82.  
  83.         (set #SelectDocuDir       "Where do you want to have the documentation installed ?")
  84.         (set #SelectDocuDirHelp   "Select the path for the documentation files.\n\nA drawer will NOT be created there !")
  85.         (set #CopyDocu            "Copy the documentation.")
  86.  
  87.         (set #RemoveMainDir       "Where do you had the program installed ?")
  88.         (set #RemoveMainProg      "Deleting mainfile.")
  89.  
  90.         (set #RemovePrefsDir      "Where do you had the preferencesprogram installed ?")
  91.         (set #RemovePrefsProg     "Deleting preferencesprogramm.")
  92.  
  93.     ; End of installation
  94.         (set #EndInstall          "\n\nThe installation is now finished.\n\n\nIf you have problems, feel free to contact the author.\n\nYou will find the address in the documentation or on his Webpages 'http://home.pages.de/~bolli'.")
  95.         (set #GlobalTrashRemoved  "\n\nGlobalTrash is now removed !\n\n\nI'm sorry that you can find nothing usable at GlobalTrash...")
  96.     )
  97. )
  98.  
  99. ;=============================================================================
  100. ; Deutsche Texte
  101. ;=============================================================================
  102.  
  103. (if (= @language "deutsch")
  104.     (
  105.  
  106.     ; Documentation
  107.         (set #DocuPath            "Help/Deutsch")
  108.  
  109.     ; Errors
  110.         (set #Err-Bad-Kick        "GlobalTrash benötigt mindestens Kickstart 3.0 !")
  111.         (set #Err-Bad-CPU         "GlobalTrash benötigt eine Motorola MC68k (68000/010/020/030/040/060) CPU !")
  112.  
  113.     ; Message
  114.         (set #Message             "\n\nVielen Dank, daß Sie \n\n>> GlobalTrash <<\n\nals Mülleimer-System gewählt haben.\n\n\nInstallscript ® 1997 von Oliver Blumert\n\n")
  115.  
  116.     ; Main
  117.         (set #InstallMode         "Wollen Sie GlobalTrash:")
  118.         (set #InstallMode1        "neu Installieren ?")
  119.         (set #InstallMode2        "updaten (von einer älteren Version) ?")
  120.         (set #InstallMode3        "entfernen ?")
  121.         (set #InstallModeHelp     "'Update' installiert die neuen Versionen (Programm, Katalog und Anleitung) ohne die Piktogramme oder Einstellungen anzutasten.\n'neu Installieren' installiert das komplette Packet inkl. der Piktogramme und Defaultpiktogramme.\n'entfernen' löscht GlobalTrash von Ihrem Datenträger.")
  122.  
  123.         (set #CPUVersionSel       "Installiere Version für CPU:")
  124.         (set #CPUVersionSelHelp   "Wählen Sie eine zu Ihrer CPU passende Programmversion.")
  125.  
  126.         (set #SelectMainDir       "Wo möchten Sie das Programm installieren ?")
  127.         (set #SelectMainDirHelp   "Wählen Sie einen Pfad für das Hauptprogramm.\n\nEin Verzeichnis wird NICHT erstellt !\n\nWenn Sie 'SYS:WBStartup' auswählen, wird das Programm\nautomatisch nach jedem Bootvorgang gestartet !")
  128.         (set #CopyMainProg        "Kopiere Hauptprogramm.")
  129.  
  130.         (set #SelectClientDir     "Wo möchten Sie den GlobalTrashCient installieren ?")
  131.         (set #SelectClientDirHelp "Wählen Sie einen Pfad für GlobalTrashClient (ein Shell-/WB-Interface für GlobalTrash).\n\nEin Verzeichnis wird NICHT erstellt !")
  132.         (set #CopyClientProg      "Kopiere GlobalTrashClient.")
  133.  
  134.         (set #SelectPrefsDir      "Wo möchten Sie das Einstellungsprogramm installieren ?")
  135.         (set #SelectPrefsDirHelp  "Wählen Sie einen Pfad für das Einstellungsprogramm.\n\nEin Verzeichnis wird NICHT erstellt !")
  136.         (set #CopyPrefsProg       "Kopiere Einstellungsprogramm.")
  137.  
  138.         (set #AskIconCopy         "Sollen die notwendigen Default-Piktogrammdateien für das WB-Appicon ('def_Trashcan' und 'def_TrashcanFull') kopiert werden ?")
  139.         (set #AskIconCopyHelp     "Diese Dateien benötigt GlobalTrash zur Einrichtung des Application-Piktogramms auf der Workbench. Wird es nicht kopiert, können so lange keine Dateien über GlobalTrash gelöscht werden, bis in dem Einsteller eine korrekte Einstellung getroffen wurde.")
  140.         (set #CopyIcons           "Kopiere notwendige Piktogrammdateien.")
  141.  
  142.         (set #CatalogVersion      0)
  143.         (set #CatalogSel          "Welche Sprache möchten Sie installieren ?\nDeutsch ist Standard und braucht nicht installiert zu werden !")
  144.         (set #CatalogSelHelp      "Wählen Sie eine Sprache aus, die das Programm nutzen soll.\nEin Katalog für 'deutsch' braucht nicht installiert zu werden (Standardsprache) !\n\nDie Katalogdateien werden in 'LOCALE:catalogs/' installiert.")
  145.         (set #CopyLocale          "Kopiere Katalogdatei.")
  146.  
  147.         (set #SelectDocuDir       "Wo soll die Dokumentation installiert werden ?")
  148.         (set #SelectDocuDirHelp   "Wählen Sie einen Pfad für die Dokumentation.\n\nEin Verzeichnis wird NICHT erstellt !")
  149.         (set #CopyDocu            "Kopiere die Dokumentation.")
  150.  
  151.         (set #RemoveMainDir       "Wo hatten Sie das Programm installiert ?")
  152.         (set #RemoveMainProg      "Lösche Hauptprogramm.")
  153.  
  154.         (set #RemovePrefsDir      "Wo hatten Sie das Einstellungsprogramm installiert ?")
  155.         (set #RemovePrefsProg     "Lösche Einstellungsprogramm.")
  156.  
  157.     ; End of installation
  158.         (set #EndInstall          "\n\nDie Installation ist nun abgeschlossen.\n\n\nSollten Sie wider Erwarten Probleme haben, kontaktieren Sie den Autor.\n\nDie Adresse finden Sie in der Dokumentation oder auf dessen Webseiten 'http://home.pages.de/~bolli'.")
  159.         (set #GlobalTrashRemoved  "\n\nGlobalTrash ist nun entfernt !\n\n\nSchade, daß Sie dieses Programm nicht brauchen können oder benutzen wollen - Ihnen entgeht da einiges...")
  160.     )
  161. )
  162.  
  163. ;=============================================================================
  164. ; Textes français
  165. ;=============================================================================
  166.  
  167. (if (= @language "français")
  168.     (
  169.  
  170.     ; Documentation
  171.         (set #DocuPath           "Help/english")
  172.  
  173.     ; Errors
  174.         (set #Err-Bad-Kick       "Pour utiliser GlobalTrash, vous avez besoin au minimum de la version 3.0 du  Kickstart !")
  175.         (set #Err-Bad-CPU        "Pour utiliser GlobalTrash, vous avez besoin d'un processeur de la famille Motorola MC68 000 (68 000/010/020/030/040/060) !")
  176.  
  177.     ; Message
  178.         (set #Message            "\n\nMerci beaucoup d'avoir choisi le système de corbeille\n\n>> GlobalTrash <<\n\n\nScript d'installation © 1997 par Oliver Blumert\n\nTraduction française réalisée par Francis Labrie.")
  179.  
  180.     ; Main
  181.         (set #InstallModeStrg    "Souhaitez-vous que GlobalTrash soit :")
  182.         (set #InstallMode1       "installé (nouveau) ?")
  183.         (set #InstallMode2       "mis à niveau (d'une version antérieure) ?")
  184.         (set #InstallMode3       "enlevé ?")
  185.         (set #InstallModeHelp    "L'option « mis à niveau » installe la nouvelle version (programme, catalogue et documentation) tout en laissant les icônes et les préférences déjà présents intacts.\nL'option « installé » quant à elle installe l'ensemble du logiciel, incluant tous les icônes.\nEnfin, l'option « enlevé » efface complètement GlobalTrash de votre système.")
  186.  
  187.         (set #CPUVersionSel      "Installer une version pour le processeur :")
  188.         (set #CPUVersionSelHelp  "Choisissez une version correspondant à votre processeur.")
  189.  
  190.         (set #SelectMainDir      "Où souhaitez-vous installer le logiciel ?")
  191.         (set #SelectMainDirHelp  "Sélectionnez un chemin pour le logiciel.\n\n\n\nAUCUN tiroir ne sera créé à cet endroit !\n\nSi vous choisissez le tiroir « SYS:WBStartup » alors GlobalTrash sera\nautomatiquement démarré à l'amorçage de votre système.")
  192.         (set #CopyMainProg       "Copie de l'exécutable principal.")
  193.  
  194.         (set #SelectClientDir     "Où souhaitez-vous installer la commande GlobalTrashClient ?")
  195.         (set #SelectClientDirHelp "Sélectionnez un chemin pour la commande GlobalTrashClient (une interface Shell/Workbench pour GlobalTrash).\n\n\n\nAUCUN tiroir ne sera créé à cet endroit !")
  196.         (set #CopyClientProg      "Copie de la commande GlobalTrashClient.")
  197.  
  198.         (set #SelectPrefsDir     "Où souhaitez-vous installer le logiciel de réglages ?")
  199.         (set #SelectPrefsDirHelp "Sélectionnez un chemin pour le logiciel de réglage.\n\n\n\nAUCUN tiroir ne sera créé à cet endroit !")
  200.         (set #CopyPrefsProg      "Copie du logiciel de réglage.")
  201.  
  202.         (set #AskIconCopy        "Les icônes par défaut nécessaires à l'AppIcône du Workbench (« def_Trashcan » et « def_TrashcanFull ») doivent-ils être copiés ?")
  203.         (set #AskIconCopyHelp    "Ces fichiers sont nécessaires à GlobalTrash afin que ce dernier puisse créer l'AppIcône sur le Workbench.  S'ils ne sont pas copiés, alors l'utilisateur ne pourra pas jeter de fichiers via l'AppIcône jusqu'à ce que les réglages définissent des icônes valides.")
  204.         (set #CopyIcons          "Copie des icônes nécessaires.")
  205.  
  206.         (set #CatalogVersion     2)
  207.         (set #CatalogSel         "Quelles langues doivent être installées ?\nL'allemand est encodé directement dans l'application - donc il ne nécessite aucune installation.")
  208.         (set #CatalogSelHelp     "Choisissez une ou plusieur langues susceptibles d'être utilisées par le logiciel.\nUn catalogue pour la langue allemande (« deutsch ») n'a pas besoin d'être installé, puisse que cette langue est directement encodée dans l'application !\n\nLes fichiers de catalogues seront installés dans le tiroir « LOCALE:Catalogs/ ».")
  209.         (set #CopyLocale         "Copie des fichiers de catalogue.")
  210.  
  211.         (set #SelectDocuDir      "Où souhaitez-vous installer la documentation ?")
  212.         (set #SelectDocuDirHelp  "Sélectionnez un chemin pour les fichiers de documentation.\n\nAUCUN tiroir ne sera créé à cet endroit !")
  213.         (set #CopyDocu           "Copie de la documentation.")
  214.  
  215.         (set #RemoveMainDir      "Où aviez-vous préalablement installé le logiciel ?")
  216.         (set #RemoveMainProg     "Destruction de l'exécutable principal.")
  217.  
  218.         (set #RemovePrefsDir     "Où aviez-vous préalablement installé le logiciel de réglage ?")
  219.         (set #RemovePrefsProg    "Destruction du logiciel de réglage.")
  220.  
  221.     ; End of installation
  222.         (set #EndInstall         "\n\nL'installation est maintenant terminée.\n\n\nSi vous avez des problèmes, vous êtes invités à contacter l'auteur.\n\nVous trouverez son adresse dans la documentation ou sur son site Internet au « http://home.pages.de/~bolli ».")
  223.         (set #GlobalTrashRemoved "\n\nGlobalTrash est maintenant enlevé de votre système !\n\n\nJe suis désolé que vous n'ayez pu trouver une quelconque utilité à GlobalTrash...")
  224.     )
  225. )
  226.  
  227. ;=============================================================================
  228. ; main installation routine
  229. ;=============================================================================
  230.  
  231.     (complete 0)
  232.     (message #Message (all))
  233.  
  234. ; Check OS-version
  235. ;==================
  236.  
  237.     (if (< (getversion) (* #MinSysVersion 65536))
  238.         (abort #Err-Bad-Kick)
  239.     )
  240.  
  241. ; Check CPU and remember
  242. ;========================
  243.  
  244.     (if (patmatch "680(00|10)" (database "cpu"))
  245.         (set #CPUVersion 0)
  246.     )
  247.     (if (patmatch "680(20|30|40|60)" (database "cpu"))
  248.         (set #CPUVersion 1)
  249.     )
  250.     (if (< #CPUVersion 0)
  251.         (abort #Err-Bad-CPU)
  252.     )
  253.  
  254.     (complete 5)
  255.  
  256.     (welcome)
  257.  
  258. ; Select installationmode
  259. ; =======================
  260.  
  261.     (if (exists (tackon #MainprogPath #MainprogName) (noreq))
  262.         (set #InstallMode #Update)
  263.     )
  264.     (set #InstallMode
  265.         (askchoice
  266.             (prompt #InstallModeStrg)
  267.             (help   #InstallModeHelp)
  268.             (choices
  269.                 #InstallMode1
  270.                 #InstallMode2
  271. ;                #InstallMode3
  272.             )
  273.             (default #InstallMode)
  274.         )
  275.     )
  276.  
  277. ; Mode 3: Remove GlobalTrash (not implemented yet !)
  278. ; ==================================================
  279.  
  280.     (if (= #InstallMode #Remove)
  281.         (exit #GlobalTrashRemoved (quiet))
  282.     )
  283.  
  284. ; Mode 1 and 2: Install or Update GlobalTrash
  285. ; ===========================================
  286.  
  287.     (if (> @user-level 1)
  288.         (set #CPUVersion
  289.             (askchoice
  290.                 (prompt #CPUVersionSel)
  291.                 (help   #CPUVersionSelHelp)
  292.                 (choices
  293.                     "68000/10"
  294.                     "68020/30/40/60"
  295.                 )
  296.                 (default #CPUVersion)
  297.             )
  298.         )
  299.     )
  300.  
  301.     (select #CPUVersion
  302.         (set #MainprogVersion (cat #MainprogName ".000"))
  303.         (set #MainprogVersion #MainprogName)
  304.     )
  305.  
  306.     (complete 10)
  307.  
  308. ; Copy the programfile
  309. ;======================
  310.  
  311.     (set #MainprogPath
  312.         (askdir
  313.             (prompt  #SelectMainDir)
  314.             (help    #SelectMainDirHelp)
  315.             (default #MainprogPath)
  316.         )
  317.     )
  318.  
  319.     (copyfiles
  320.         (prompt  #CopyMainProg)
  321.         (source  #MainprogVersion)
  322.         (dest    #MainprogPath)
  323.         (newname #MainprogName)
  324.     )
  325.  
  326.     (if (= #InstallMode #New)
  327.         (copyfiles
  328.             (prompt  #CopyMainProg)
  329.             (source  (cat #MainprogName ".info"))
  330.             (dest    #MainprogPath)
  331.         )
  332.     )
  333. ;    (if (= #InstallMode #Update)
  334. ;        (tooltype
  335. ;            (dest (tackon #MainprogPath #MainprogName))
  336. ;            (settooltype "tooltype" "value")
  337. ;        )
  338. ;    )
  339.  
  340.     (complete 30)
  341.  
  342. ; Copy the clientprogram 
  343. ;=======================
  344.  
  345.     (set #ClientPath
  346.         (askdir
  347.             (prompt  #SelectClientDir)
  348.             (help    #SelectClientDirHelp)
  349.             (default #ClientPath)
  350.         )
  351.     )
  352.  
  353.     (copyfiles
  354.         (prompt  #CopyClientProg)
  355.         (source  #ClientName)
  356.         (dest    #ClientPath)
  357.     )
  358.  
  359. ;    (if (= #InstallMode #New)                                                           ; (NEW V 1.0 - with icon !)
  360.         (copyfiles
  361.             (prompt  #CopyClientProg)
  362.             (source  (cat #ClientName ".info"))
  363.             (dest    #ClientPath)
  364.         )
  365. ;    )
  366. ;    (if (= #InstallMode #Update)
  367. ;        (tooltype
  368. ;            (dest (tackon #MainprogPath #MainprogName))
  369. ;            (settooltype "tooltype" "value")
  370. ;        )
  371. ;    )
  372.  
  373.  
  374.     (complete 40)
  375.  
  376. ; Copy the defaulticons (install new)
  377. ;====================================
  378.  
  379.     (if (= #InstallMode #New)
  380.         (
  381.             (if (> @user-level 1)
  382.                 (set #PerformIconCopy (askbool
  383.                                           (prompt  #AskIconCopy)
  384.                                           (help    #AskIconCopyHelp)
  385.                                       )
  386.                 )
  387.             )
  388.  
  389.             (if (= #PerformIconCopy 1)
  390.                 (
  391.                     (copyfiles
  392.                         (prompt  #CopyIcons)
  393.                         (source  "ENVARC/sys/")
  394.                         (dest    "ENV:sys")
  395.                         (all)
  396.                     )
  397.  
  398.                     (complete 50)
  399.  
  400.                     (copyfiles
  401.                         (prompt  #CopyIcons)
  402.                         (source  "ENVARC/sys/")
  403.                         (dest    "ENVARC:sys")
  404.                         (all)
  405.                     )
  406.                 )
  407.             )
  408.         )
  409.     )
  410.  
  411.     (complete 60)
  412.  
  413. ; Copy the catalog
  414. ;=================
  415.  
  416.     ; Copy new
  417.     ;=========
  418.  
  419.     (if (= #InstallMode #New)
  420.         (
  421.             (set #CatalogVersion
  422.                 (askoptions
  423.                     (prompt #CatalogSel)
  424.                     (help   #CatalogSelHelp)
  425.                     (choices
  426.                         "english"
  427.                         "français"
  428.                         "polski"
  429.                         "svenska"
  430.                     )
  431.                     (default #CatalogVersion)
  432.                 )
  433.             )
  434.  
  435.             ; english (#CatalogVersion = 1)
  436.             (if (in #CatalogVersion 0)
  437.                 (copyfiles
  438.                     (prompt  #CopyLocale)
  439.                     (source  (tackon #LocaleSrc  "english/GlobalTrash.catalog"))
  440.                     (dest    (tackon #LocaleDest "english"))
  441.                 )
  442.             )
  443.             ; français (#CatalogVersion = 2)
  444.             (if (in #CatalogVersion 1)
  445.                 (copyfiles
  446.                     (prompt  #CopyLocale)
  447.                     (source  (tackon #LocaleSrc  "français/GlobalTrash.catalog"))
  448.                     (dest    (tackon #LocaleDest "français"))
  449.                 )
  450.             )
  451.             ; polski (#CatalogVersion = 4)
  452.             (if (in #CatalogVersion 2)
  453.                 (copyfiles
  454.                     (prompt  #CopyLocale)
  455.                     (source  (tackon #LocaleSrc  "polski/GlobalTrash.catalog"))
  456.                     (dest    (tackon #LocaleDest "polski"))
  457.                 )
  458.             )
  459.             ; svenska (#CatalogVersion = 8)
  460.             (if (in #CatalogVersion 3)
  461.                 (copyfiles
  462.                     (prompt  #CopyLocale)
  463.                     (source  (tackon #LocaleSrc  "svenska/GlobalTrash.catalog"))
  464.                     (dest    (tackon #LocaleDest "svenska"))
  465.                 )
  466.             )
  467.         )
  468.     )
  469.  
  470.     ;update old (catalog exists)
  471.     ;===========================
  472.  
  473.     (if (= #InstallMode #Update)
  474.         (
  475.             (if (exists (tackon #LocaleDest "english/GlobalTrash.catalog") (noreq))
  476.                 (copyfiles
  477.                     (prompt  #CopyLocale)
  478.                     (source  (tackon #LocaleSrc  "english/GlobalTrash.catalog"))
  479.                     (dest    (tackon #LocaleDest "english"))
  480.                 )
  481.             )
  482.             (if (exists (tackon #LocaleDest "français") (noreq))                         ; (NEW V 1.0)
  483.                 (copyfiles
  484.                     (prompt  #CopyLocale)
  485.                     (source  (tackon #LocaleSrc  "français/GlobalTrash.catalog"))
  486.                     (dest    (tackon #LocaleDest "français"))
  487.                 )
  488.             )                                                                            ; (NEW V 1.0)
  489.             (if (exists (tackon #LocaleDest "polski") (noreq))
  490.                 (copyfiles
  491.                     (prompt  #CopyLocale)
  492.                     (source  (tackon #LocaleSrc  "polski/GlobalTrash.catalog"))
  493.                     (dest    (tackon #LocaleDest "polski"))
  494.                 )
  495.             )
  496.             (if (exists (tackon #LocaleDest "svenska") (noreq))                          ; (NEW V 1.0)
  497.                 (copyfiles
  498.                     (prompt  #CopyLocale)
  499.                     (source  (tackon #LocaleSrc  "svenska/GlobalTrash.catalog"))
  500.                     (dest    (tackon #LocaleDest "svenska"))
  501.                 )
  502.             )
  503.         )
  504.     )
  505.  
  506.     (complete 70)
  507.  
  508. ; Copy the documentation
  509. ;========================
  510.  
  511.     (set #MainDefaultPath
  512.         (askdir
  513.             (prompt  #SelectDocuDir)
  514.             (help    #SelectDocuDirHelp)
  515.             (default #MainDefaultPath)
  516.         )
  517.     )
  518.  
  519.     ; set application path to get install_log_file there
  520.     (set @default-dest #MainDefaultPath)
  521.  
  522.     (copyfiles
  523.         (prompt  #CopyDocu)
  524.         (source  #DocuPath)
  525.         (dest    #MainDefaultPath)
  526.         (choices
  527.             #DocuName
  528.             #RegisterName
  529.         )
  530.     )
  531.  
  532.     (if (= #InstallMode #New)
  533.         (copyfiles
  534.             (prompt  #CopyDocu)
  535.             (source  #DocuPath)
  536.             (dest    #MainDefaultPath)
  537.             (choices
  538.                 (cat #DocuName ".info")
  539.                 (cat #RegisterName ".info")
  540.             )
  541.         )
  542.     )
  543.  
  544.     (complete 100)
  545.  
  546. ; Finish
  547. ;========
  548.  
  549.     (exit #EndInstall)
  550.  
  551.